(Fprimitive_undo): Use XCAR/XCDR.

diff --git a/src/undo.c b/src/undo.c
index 83c2327a8db56b84242a8a8645f615dae3f8142b..b664cf3c61fc68b6c24c7426685f26b35578b3d4 100644 (file)
--- a/src/undo.c
+++ b/src/undo.c
@@ -422,10 +422,10 @@ Return what remains of the list.")
 
   while (arg > 0)
     {
-      while (1)
+      while (CONSP (list))
        {
-         next = Fcar (list);
-         list = Fcdr (list);
+         next = XCAR (list);
+         list = XCDR (list);
          /* Exit inner loop at undo boundary.  */
          if (NILP (next))
            break;
@@ -436,8 +436,8 @@ Return what remains of the list.")
            {
              Lisp_Object car, cdr;
 
-             car = Fcar (next);
-             cdr = Fcdr (next);
+             car = XCAR (next);
+             cdr = XCDR (next);
              if (EQ (car, Qt))
                {
                  /* Element (t high . low) records previous modtime.  */